home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Passage of Mercury.gt5 < prev    next >
Encoding:
Text File  |  2003-09-07  |  1.9 KB  |  71 lines
  1. OpenWorkspace  "transit.ws5"
  2. '---- standard prologue
  3. Set wnd = getWindow(1)
  4. Set Camera = wnd.camera
  5. Set theTime = camera.time
  6. Set Direction = camera.Direction
  7. Set Location = camera.Location
  8. Set flt = wnd.Filters
  9. Set objects = flt.objects
  10. Set Sky = flt.SkyChart
  11. '---- end standard prologue'
  12. wnd.MDIWindow.State = SW_MAXIMIZE
  13.  
  14.  Set obj_l = Location.CentralObject
  15.  set obj_d=Direction.Object
  16. set pl =PlayerWindow
  17. pl.top=0
  18. pl.left=0
  19. set txt1 = CreateTextWindow
  20. 'txt1.Locate 0,450,450,100
  21. txt1.Locate 0,Screen.height-115,450,100
  22. txt1.LoadFile "Transit_M1.html"
  23. txt1.Show
  24. settimemark
  25. 'pause 4000
  26.  theTime.Forward
  27.  WaitFrames 25 : theTime.Stop
  28. waitfortime 8000
  29. txt1.LoadFile "Transit_M2.html"
  30. txt1.Locate 0,Screen.height-130,450,115
  31.  theTime.Forward
  32.  WaitFrames 28 : theTime.Stop
  33.  Direction.Zoom = 1.00000000000000E+000
  34.  Location.Lattitude = 1.57079632679485E+000
  35.  Location.Longitude = 3.92699081698713E+000
  36.  objects.planets.Magnification(1)=10
  37.  objects.planets.Magnification(3)=1 : UpdateWindows
  38.  theTime.Units = 1
  39.  theTime.step = 1.00000000000000E+000
  40.  theTime.Forward
  41.  WaitFrames 15 : theTime.Stop
  42. waitfortime 11000
  43.  theTime.TimeZone = 0.00000000000000E+000
  44.  objects.planets.Label(1)=False
  45.  objects.planets.Label(10)=False
  46.  objects.planets.orbit(1)=False
  47.  
  48.  objects.planets.Magnification(1)=1 
  49. Location.SetLocParams 0, 2, 2
  50. obj_l.ObjectType=&H706C6E74
  51.  obj_l.ObjectID = 3
  52.  Location.CentralObject=obj_l
  53. 'obj_d.objectType = &H706C6E74
  54. 'obj_d.objectID = 1
  55. 'Direction.Object=obj_d
  56. ' Direction.lock = 1
  57.  Direction.Zoom = 5.00000000000000E+001
  58.  objects.planets.Magnification(1)=5 : UpdateWindows
  59.  theTime.Units = 3
  60.  theTime.step = 3.00000000000000E+000
  61. 'pause 2000
  62. txt1.LoadFile "Transit_M3.html"
  63. txt1.Locate 0,Screen.height-285,485,275
  64.  theTime.JDstr = "2452766.71731" : UpdateWindows
  65.  theTime.Forward
  66.  WaitFrames 118 : theTime.Stop
  67. waitfortime 8000
  68. txt1.Close
  69. ' end recording
  70.  
  71.